CLOSE DATABASES ALL 
SELECT 0
USE D:\Du_lieu\DienBien\dl_2526b.dbf EXCLUSIVE ALIAS dl25
ZAP

_duongdan = GETDIR('Chon duongdan')
SET DEFAULT TO '&_duongdan'
gnDbcnumber = ADIR(MangFile, '*.XLS')  && Create array

FOR nCount = 1 TO gnDbcnumber  && Loop for number of databases
	_file_nguon = ALLTRIM(MangFile(nCount,1))
	SELECT dl25
	APPEND FROM '&_file_nguon' TYPE XL8

ENDFOR 

_file_out = _duongdan + 'dl2526b.dbf'
SELECT * FROM dl25 INTO TABLE '&_file_out'
DELETE ALL FOR t_tongchi = 0 AND t_bhtt = 0 AND EMPTY(ALLTRIM(mathe))
REPLACE ALL ck WITH ''
REPLACE ALL quy_qt WITH 3
PACK 
USE IN dl2526b